home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857sr~1.zoo / lisp / char-table-vt100.el < prev    next >
Encoding:
Text File  |  1992-01-24  |  2.7 KB  |  75 lines

  1. ;; Functions for dealing with char tables for VT-100 terminals.
  2. ;; Copyright (C) 1987 Free Software Foundation, Inc.
  3.  
  4. ;; This file is part of GNU Emacs.
  5.  
  6. ;; GNU Emacs is distributed in the hope that it will be useful,
  7. ;; but WITHOUT ANY WARRANTY.  No author or distributor
  8. ;; accepts responsibility to anyone for the consequences of using it
  9. ;; or for whether it serves any particular purpose or works at all,
  10. ;; unless he says so in writing.  Refer to the GNU Emacs General Public
  11. ;; License for full details.
  12.  
  13. ;; Everyone is granted permission to copy, modify and redistribute
  14. ;; GNU Emacs, but only under the conditions described in the
  15. ;; GNU Emacs General Public License.   A copy of this license is
  16. ;; supposed to have been given to you along with GNU Emacs so you
  17. ;; can know your rights and responsibilities.  It should be in a
  18. ;; file named COPYING.  Among other things, the copyright notice
  19. ;; and this notice must be preserved on all copies.
  20.  
  21.  
  22. ;; Written by Howard Gayle.  See case-table.el for details.
  23.  
  24. (defun standard-char-graphic (c gc)
  25.    "Display character C as graphic set character GC in
  26.    backslash-char-table and ctl-arrow-char-table."
  27.    (let     ((r (vector (new-glyf (concat "\e(0" (char-to-string gc) "\e(B")))))
  28.       (put-char-table-dispr (backslash-char-table) c r)
  29.       (put-char-table-dispr (ctl-arrow-char-table) c r)
  30.       r
  31.    )
  32. )
  33.  
  34. (defun standard-char-underline (c uc)
  35.    "Display character C as character UC underlined in
  36.    backslash-char-table and ctl-arrow-char-table."
  37.    (let     ((r (vector (new-glyf (concat "\e[4m" (char-to-string uc) "\e[m")))))
  38.       (put-char-table-dispr (backslash-char-table) c r)
  39.       (put-char-table-dispr (ctl-arrow-char-table) c r)
  40.       r
  41.    )
  42. )
  43.  
  44. (defun standard-frameg-graphic (gc)
  45.    "For the frame glyf, use graphic set character GC in
  46.    backslash-char-table and ctl-arrow-char-table."
  47.    (let     ((g (new-glyf (concat "\e(0" (char-to-string gc) "\e(B"))))
  48.       (put-char-table-frameg (backslash-char-table) g)
  49.       (put-char-table-frameg (ctl-arrow-char-table) g)
  50.       g
  51.    )
  52. )
  53.  
  54. (defun standard-truncg-graphic (gc)
  55.    "For the truncation glyf, use graphic set character GC in
  56.    backslash-char-table and ctl-arrow-char-table."
  57.    (let     ((g (new-glyf (concat "\e(0" (char-to-string gc) "\e(B"))))
  58.       (put-char-table-truncg (backslash-char-table) g)
  59.       (put-char-table-truncg (ctl-arrow-char-table) g)
  60.       g
  61.    )
  62. )
  63.  
  64. (defun standard-wrapg-graphic (gc)
  65.    "For the line wrap glyf, use graphic set character GC in
  66.    backslash-char-table and ctl-arrow-char-table."
  67.    (let     ((g (new-glyf (concat "\e(0" (char-to-string gc) "\e(B"))))
  68.       (put-char-table-wrapg (backslash-char-table) g)
  69.       (put-char-table-wrapg (ctl-arrow-char-table) g)
  70.       g
  71.    )
  72. )
  73.  
  74. (provide 'char-table-vt100)
  75.